بسم الله الرحمن الرحیم

برای ساخت این برنامه ابتدا یک Form ایجاد کرده .

سپس از جعبه ابزار یک کنترل PictureBox و یک Command برروی Form قرار دهید .

نام PictureBox را Pic و command را cmdCls قرار دهید .

حال کد زیر را به برنامه اضافه کنید .

Dim XX, YY

Private Sub cmdCls_Click()
pic.Cls
End Sub

Private Sub pic_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
XX = X
YY = Y
End Sub

Private Sub pic_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
pic.Line (XX, YY)-(X, Y)
XX = X
YY = Y
End If
If Button = 2 Then
pic.Line (XX, YY)-(X, Y)
pic.ForeColor = RGB(0, Rnd * 255, 0)
End If
End Sub

موفق باشید

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: